home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 167 / 167.d81 / u.starboard 151 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  41 lines
  1. 10 poke53280,0:poke53281,0:printchr$(14)
  2. 20 print"[147][158]          [211] [212] [193] [210] [194] [207] [193] [210] [196] [211]"
  3. 30 print"     #1 [195]ad-[205]   #2 [195]omic [195]ollector"
  4. 40 print"[212]his will do the modifications listed"
  5. 50 print"in the [211]tarboard on [204]oadstar #151.
  6. 80 [153]"right$t's best to use a copy rather than"
  7. 90 [153]"using your original (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) disk!"
  8. 100 [153]"(NULL)ake sure that the (NULL)rite-(NULL)rotect tab"
  9. 110 [153]"on the disk is not covered as this"
  10. 120 [153]"program writes to the disk."
  11. 152 [153]"atnfter (NULL)electing, str$o (NULL)(NULL)(NULL) touch the"
  12. 154 [153]"keyboard or open the disk drive door"
  13. 156 [153]"until the white lenursor appears!!!!!!"
  14. 157 [153]"         lenhoose #1 or #2 (NULL)ow"
  15. 160 [161]a$:[139]a$[178]""[167]160
  16. 170 [139]a$[178]"1"[167]178
  17. 175 [139]a$[178]"2"[167]292
  18. 177 [137]160
  19. 178 [153]"  right$nsert (NULL)(NULL) #150 (NULL)ide 3 in str$rive 8"
  20. 179 [161]a$:[139]a$[178]""[167]179
  21. 180 q$[178][199](34):f$[178]"cad"
  22. 190 [153]"loadload"q$f$q$",8"
  23. 200 [153]"350 load"q$"cad-m loader"q$",8"
  24. 250 [153]"open15,8,15,"q$"s0:"f$q$":close15:save"q$f$q$",8"
  25. 260 [153]"poke646,1
  26. 270 print""
  27. 280 fori=631to640:pokei,13:next:poke198,10
  28. 290 new:end
  29. 292 print"  [201]nsert [204][211] #149 [211]ide 3 in [196]rive 8"
  30. 294 geta$:ifa$=""then294
  31. 300 q$=chr$(34):f$="comic collector"
  32. 310 print"[147]load"q$f$q$",8"
  33. 320 print"2340 open15,dv,15,"q$"s0:"q$"+f$:close15"
  34. 330 print"2360 s[217]57812f$,dv,0:f%=sa/256:g%=sa-f%*256:p[207]sa,f:p[207]193,g%:p[207]194,f%"
  35. 340 print"open15,8,15,"q$"s0:"f$q$":close15:save"q$f$q$",8"
  36. 350 print"poke646,1
  37. 360 [153]""
  38. 370 [129]i[178]631[164]640:[151]i,13:[130]:[151]198,10
  39. 380 [162]:[128]
  40. 10000 [159]15,8,15,"s0:u.starboard":[160]15:[148]"u.starboard",8:[128]
  41.